﻿module Program

[<Measure>] type 欧
[<Measure>] type 伏
[<Measure>] type 安

let print str = printf str
let println str = printfn str

printfn "Hello world!"
let addOne x = x + x
let mutable(*设置变量为可变*) res = addOne 10
printfn "%d" res
let multiple x = x * x
res <- multiple 100// `<-`的作用是对变量赋值
println "%d" res
//----------- 数学函数 -------------
let f x = pown x 2
println "%d" (f 10)


print "Test print"
print " "
println "Test println"
let ``varible with blank space``= println
``varible with blank space`` "abc"
let num = 10 / 10
println $"{num}"

[<EntryPoint>]
let main argv =
    let 说 = print
    说 "Hello world!"
    let A = 1<安>
    let V = 5<伏>
    let om = V / A
    println $"{om}"
    0
